home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / EXTERN / IOCONFIG.D < prev    next >
Encoding:
Modula Definition  |  1989-08-19  |  2.2 KB  |  92 lines
  1. DEFINITION MODULE IOConfig;
  2.  
  3.  
  4. FROM SysTypes IMPORT CHARSET;
  5.  
  6. VAR
  7.  
  8. (*
  9.  * Für die Funktionen aus InOut, Text und NumberIO:
  10.  * ------------------------------------------------
  11.  *)
  12.  
  13.   EchoCR: BOOLEAN;
  14.    (*
  15.     * Wirken auf ReadLine, ReadToken (und deren Aufrufer) bei Eingabe
  16.     * von der Tastatur (Console):
  17.     *
  18.     * TRUE:  Nach Eingabe der Return- oder Enter-Taste wird WriteLn
  19.     *        aufgerufen, um den Cursor in die nächste Zeile zu setzen.
  20.     * FALSE: Eingabe von Return oder Enter bewirkt kein Echo dieser Taste.
  21.     *)
  22.  
  23.   ReadStringByLine: BOOLEAN;
  24.    (*
  25.     * TRUE:  ReadString ruft ReadLine, Read ruft ReadDirChar
  26.     * FALSE: ReadString ruft ReadToken, Read ruft ReadBufChar
  27.     *
  28.     * Diese Variable ist für die NumberIO-Funktionen nicht relevant.
  29.     *)
  30.  
  31.   LengthOfBufferedLine: CARDINAL;
  32.    (*
  33.     * Hiermit kann die Maximallänge der Eingabezeile f. ReadToken
  34.     * bestimmt werden.
  35.     *
  36.     * Standardwert: 80, Maximalwert: 255
  37.     *)
  38.  
  39.   Separators: CHARSET;
  40.    (*
  41.     * Trennzeichen für ReadToken und die Read-Funktionen aus NumberIO.
  42.     * Beim Lesen werden führende Trennzeichen ignoriert (ausgefiltert),
  43.     * sodaß ein mit ReadToken gelesener String nie ein Trennzeichen
  44.     * enthalten kann.
  45.     *
  46.     * Standardwert:  CHARSET {0C..' '};
  47.     *   (das sind alle Control-Zeichen sowie das Leerzeichen)
  48.     *)
  49.  
  50. (*
  51.  * Nur für InOut-Modul:
  52.  * --------------------
  53.  *)
  54.  
  55.   WriteLnAfterReadString: BOOLEAN;
  56.     (*
  57.      * TRUE: InOut.ReadString ruft nach der Eingabe WriteLn auf.
  58.      *   (jedoch nicht InOut.ReadLine!)
  59.      * Ist ebenfalls 'EchoCR' TRUE, wird selbstverständlich
  60.      * insgesamt nur einmal WriteLn aufgerufen.
  61.      *)
  62.  
  63.  
  64. PROCEDURE Wirth;
  65.   (*
  66.    * EchoCR:= FALSE;
  67.    * ReadStringByLine:= FALSE;
  68.    * WriteLnAfterReadString:= FALSE;
  69.    *
  70.    *  SPC
  71.    *)
  72.  
  73. PROCEDURE Terminal;
  74.   (*
  75.    * EchoCR:= TRUE;
  76.    * ReadStringByLine:= TRUE;
  77.    * WriteLnAfterReadString:= FALSE; (ist egal, da 'EchoCR' schon TRUE ist)
  78.    *
  79.    *  TopSpeed
  80.    *)
  81.  
  82. PROCEDURE Megamax;
  83.   (*
  84.    * EchoCR:= FALSE;
  85.    * ReadStringByLine:= TRUE;
  86.    * WriteLnAfterReadString:= TRUE;
  87.    *
  88.    *  Megamax
  89.    *)
  90.  
  91. END IOConfig.
  92.